20 REM DRAW THE ORIGINAL BORDERS BY TYPING RUN
25 REM TYPE GOTO 200 TO SAVE THE PICTURE AND DRAW THE SPRITE
30 REM TYPE GOTO 500 TO LIST THE DATA ON THE SCREEN
35 REM TYPE GOTO 600 TO REDRAW AND MODIFY THE PICTURE
40 REM TYPE GOTO 700 TO LIST DATA TO THE PRINTER
45 DIM AR(504),A1(63): V=53248
100 GOSUB1000
150 END
200 GOSUB 1200
300 GOSUB 1300
400 GOSUB 1400
450 END
500 GOSUB 1500
510 IF P1=1 THEN PRINT#1 : P1=0 : CLOSE 1
550 END
600 GOSUB 1600
650 END
700 P1=1
710 OPEN 1,4 : CMD 1
720 GOTO 500
800 REM
1000 REM SET UP INFORMATION FOR BORDERS
1010 PRINT"[147]":POKE53281,11        
1020 S=1034 : S1=1057 : S2=1 : S3=100 : GOSUB 1100
1030 S=1073 : S1=1873 : S2=40 : S3=103 : GOSUB 1100
1040 S=1914 : S1=1937 : S2=1 : S3=99 : GOSUB1100
1050 S=1098 : S1=1937 : S2=40 : S3=101 : GOSUB1100
1060 S=1034 : POKE S+7,122 : POKE S+8,76
1065 POKE S+15,122 : POKE S+16,76
1070 S=1914 : POKE S+7,80 : POKE S+8,79
1075 POKE S+15,80 : POKE S+16,79
1080 S=1472 : POKE S,67 : POKE S+27,67
1090 RETURN
1100 REM  DRAW BORDERS
1110 FOR I=S TO S1 STEP S2
1120 :    POKE I,S3
1130 NEXT I
1140 RETURN
1150 REM
1200 REM  PUT BIT DATA IN ARRAY AR()
1210 I1=0 : REM  I1=ZERO
1220 FOR S=1074 TO 1874 STEP 40
1230 :   FOR I=S TO S+23
1240 :        I1=I1+1
1250 :        AR(I1)=0 : REM AR(I1)=ZERO
1260 :        IF PEEK(I)=49 THEN AR(I1)=1
1270 :   NEXT I
1280 NEXT S
1290 RETURN
1295 REM
1300 REM  DECODE & PUT DECIMAL DATA IN ARRAY A1()
1310 Y=1
1320 FOR I=1 TO 63
1330 :   DEC=0 : BIN=128 : REM  DEC=ZERO
1340 :   FOR IX=Y TO Y+7
1350 :       DEC=DEC+BIN*AR(IX)
1360 :       BIN=BIN/2
1370 :   NEXT IX
1380 :   Y=Y+8 : A1(I)=DEC
1390 NEXT I
1395 RETURN
1397 REM
1400 REM  DRAW THE SPRITE
1410 FOR I=1 TO 63
1420 :   POKE 831+I,A1(I)
1430 NEXT I
1440 POKE V+4,70 : POKE V+5,205
1450 POKE 2042,13 : POKE V+21,4
1460 RETURN
1470 REM
1500 REM  LIST DATA
1510 PRINT"[147]" : POKE V+21,0 : REM POKE V+21,ZERO
1520 FOR I=1 TO 63 STEP 3
1530 :   PRINT A1(I),A1(I+1),A1(I+2)
1540 NEXT I
1550 RETURN
1560 REM
1600 REM  REDRAW PICTURE
1610 POKE53281,15:GOSUB 1000
1620 I1=0 : REM I1=ZERO
1630 FOR S=1074 TO 1874 STEP 40
1640 :   FOR I=S TO S+23
1650 :       I1=I1+1
1660 :       IF AR(I1)=1 THEN POKE I,49
1670 :   NEXT I
1680 NEXT S
1690 RETURN